www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModel\D_admin_zimodels.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<!--#include file=../../inc/ND_class_function.asp-->
<!--#include file="modelsys_inc/D_model_class.asp"-->
<%
AJAXshowLoader()
%>
<style type="text/css">
<!--
.STYLE3 {
color: #FFFFFF;
font-weight: bold;
}
.STYLE6 {color: #0000FF}
-->
</style>
<div id="divProcessing" style="width:200px;height:30px;position:absolute;display:none">
<table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" width="100%" height="100%"><tr><td bgcolor=#0650D2><marquee align="middle" behavior="alternate" scrollamount="5" style="font-size:9pt"><font color=#FFFFFF>...正在保存远程图片...请等待...</font></marquee></td></tr></table>
</div>
<br />
<div id="l_list" style="filter:blendTrans(duration=1); width:800px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;">
<%
if qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
%>
<script src="../../ND_editor/FCKeditor2_5/FCKeditor.js"></script>
<script type="text/javascript">
<!--
function remoteUpload(o) {
try{
var strText = GetContentHTML() ;
var divProcessing=document.getElementById("divProcessing");
var objField = document.getElementsByName("content_UploadText")[0];
objField.value = strText ;
if (o) {
divProcessing.style.top = 800 ;
divProcessing.style.left = 200 ;
divProcessing.style.display = "";
document.remoteuploadb.submit();
}else{
divProcessing.style.display = "none";
}
}
catch(e){}
}
function remoteUploadok() {
try{
divProcessing.style.display = "none";
}
catch(e){}
}
function GetContentHTML(){
var strHTML ;
try{
var oEditor = FCKeditorAPI.GetInstance('Content') ;
strHTML = oEditor.GetXHTML()
}
catch(e){
strHTML = '';
}
return strHTML
}
var sLinkOriginalFileName = "originalfilename" ;
var sLinkSaveFileName = "savefilename" ;
var sLinkSavePathFileName = "UploadFileList" ;
function addUploadFile(originalFileName, saveFileName, savePathFileName){
doInterfaceUpload(sLinkOriginalFileName, originalFileName);
doInterfaceUpload(sLinkSaveFileName, saveFileName);
doInterfaceUpload(sLinkSavePathFileName, savePathFileName);
}
function doInterfaceUpload(strLinkName, strValue){
if (strValue=="") return;
if (strLinkName){
var objLinkUpload = document.getElementsByName(strLinkName)[0];
if (objLinkUpload){
if (objLinkUpload.value!=""){
objLinkUpload.value = objLinkUpload.value + "|";
}
objLinkUpload.value = objLinkUpload.value + strValue;
objLinkUpload.fireEvent("onchange");
}
}
}
function doChange(objText, objDrop){
if (!objDrop) return;
//if(document.myform.BriefTopic.selectedIndex<2){
// document.myform.BriefTopic.selectedIndex+=1;
//}
var str = objText.value;
var arr = str.split("|");
var nIndex = objDrop.selectedIndex;
objDrop.length=1;
for (var i=0; i<arr.length; i++){
objDrop.options[objDrop.length] = new Option(arr[i], arr[i]);
}
objDrop.selectedIndex = nIndex;
}
//-->
</script>
<br />
<input type="button" value="返回后台模型管理菜单" onclick="self.location='D_admin_models.asp';" />
<br />
<br />
<script language="javascript">
function delact(nn){
if (confirm("确认删除?")==1){
self.location=nn;
}
}
</script>
<script language="javascript">
function ks(urll){
if (confirm("确认要开始?")==1){
self.location=urll;
}
}
</script>
<table width="96%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="17%" height="27" align="center" class="adminth" style="word-break:break-all"><span class="STYLE3">后台子模型管理项名</span></td>
<td width="21%" height="27" align="center" class="adminth" style="word-break:break-all"><span class="STYLE3">子模型数据库表名</span></td>
<td width="20%" align="center" class="adminth" style="word-break:break-all"><span class="STYLE3">后台子模型类型</span></td>
<td width="24%" align="center" class="adminth" style="word-break:break-all"><span class="STYLE3">子模型描述</span></td>
<td width="18%" align="center" class="adminth" style="word-break:break-all"><span class="STYLE3">操作</span></td>
</tr>
<%
CurrentPage=replacebadchar(request("page"))
if CurrentPage="" then
CurrentPage=1
else if not IsNumeric(CurrentPage) then
CurrentPage=1
else if int(CurrentPage)<=0 then
CurrentPage=1
else
CurrentPage=replaceBadchar(request("page"))
end if
end if
end if
maxperpage=10
aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/")
strFileName = aryxx(ubound(aryxx))&"?modelid="&request("modelid")
set rs11=server.CreateObject("adodb.recordset")
rs11.open "select * from ND_models_reg where id="&request("modelid"),conn,1,1
biao_rnd_qianzhui=rs11("all_biao_rnd_qianzhui")
model_folder_path=rs11("model_folder_path_name")
use_http_url=0
use_http_post=0
zimodelxmlph="../../Model/Models/"&model_folder_path&"/"&iconfigbiaosfile
set aasc=ReadXMLDocument_nodes(zimodelxmlph,"zimodels/zimodel")
if aasc.length<>0 then
totalnumber=aasc.length
if totalnumber mod maxperpage=0 then
MaxPage= totalnumber \ MaxPerpage
else
MaxPage= totalnumber \ MaxPerpage+1
end if
if int(CurrentPage)>int(MaxPage) then
CurrentPage=MaxPage
else
CurrentPage=CurrentPage
end if
orgpos=1
for jijiaaa=2 to CurrentPage
orgpos=orgpos+MaxPerpage
next
for ni=orgpos to orgpos+(MaxPerpage-1)
if ni>totalnumber then exit for
namex=trim(aasc(ni-1).selectSingleNode("name").text)
zi_model_beizhux=trim(aasc(ni-1).selectSingleNode("zi_model_beizhu").text)
zi_model_typex=trim(aasc(ni-1).selectSingleNode("zi_model_type").text)
adminnameax=trim(aasc(ni-1).selectSingleNode("adminnamea").text)
%>
<tr bgcolor="#EDF8FE">
<td width="17%" height="27" align="center" style="word-break:break-all"><strong><%=adminnameax%></strong></td>
<td width="21%" height="27" align="center" style="word-break:break-all"><strong>[<%=biao_rnd_qianzhui&namex%>]</strong><br />,其中数据库表名前缀为<%=biao_rnd_qianzhui%></td>
<td width="20%" height="40" align="left" style="word-break:break-all">
<%if cstr(zi_model_typex)="1" then%>
带添加页,修改页,删除页,搜索页,(并可插入自定义后台管理页)的后台子模型
<%end if%>
<%if cstr(zi_model_typex)="2" then%>
单页参数设置页(如系统基本设置页)类型的后台子模型
<%end if%>
<%if cstr(zi_model_typex)="3" then%>
自定义后台管理页(或管理页组)类型的后台子模型
<%end if%>
</td>
<td width="24%" align="center" style="word-break:break-all"><%=zi_model_beizhux%></td>
<td width="18%" align="left" bgcolor="#EAEAEA"> <a href="D_edit_a_zimodel.asp?name=<%=namex%>&modelid=<%=request("modelid")%>">编辑</a> <a href=# onclick="delact('D_delete_zimodel.asp?name=<%=namex%>&modelid=<%=request("modelid")%>');">删除</a></td>
</tr>
<%
next
else
%>
<tr><td colspan="5" class=maintext align="center"><font color="#FF0000"><strong>没有内容……</strong></font></td></tr>
<%end if
%>
<tr>
<td colspan="5" align="center" height="27" bgcolor="#FFFFFF"><%call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td>
</tr>
</table>
<br />
</div>
<script language=javascript>
AJAXfade(1,'l_list')
</script>
<%
AJAXcloseLoader()
%>